0 XM=53264:X=53248:D=-1:GA=72:EE=0:KA=255:POKE53269,0
1 IFPEEK(50307)<>120THEN5
2 POKE50257,8:POKE50259,001:POKE50260,017:POKE50261,074:POKE50262,026
5 T$="[147][156]             [211]UPER[212]APE-[196] [201][201]             [146][144]":POKE53276,1
6 A=832:B=927:FORI=ATOB:READP:POKEI,P:NEXT:POKE2040,13:POKE53285,2:POKE53286,0
10 POKE53281,15:POKE53280,15:PRINT"[147][144]"CHR$(14)CHR$(8):POKE53287,14
20 PRINTT$
30 PRINT:PRINT"[196]ATEN VOM [195]-64 AUF ANDERE [210]ECHNER UEBER-";
40 PRINT"TRAGEN? [205]IT [211]UPER[212]APE KEIN [208]ROBLEM."
50 PRINT:PRINT"[205]IT DIESEM [204]ADE- UND [211]PEICHERVERFAHREN"
60 PRINT"FUER [203]ASSETTE STELLEN WIR [201]HNEN NICHT"
70 PRINT"NUR DAS UNSERES [215]ISSENS DERZEIT SCHNELL-";
80 PRINT"STE [208]ROGRAMM DIESER [193]RT ZUR [214]ERFUEGUNG"
90 PRINT"(ZWOELFMAL SCHNELLER ALS DIE [195]OMMODORE-"
100 PRINT"[210]OUTINEN), SONDERN AUCH EINE [211]CHNITT-"
110 PRINT"STELLE ZU ZAHLREICHEN ANDEREN [210]ECHNER-"
120 PRINT"MODELLEN.":PRINT
130 PRINT"[211]ELBST [194]ESITZER DER [198]LOPPY 1541 WERDEN"
140 PRINT"[193]UGEN MACHEN: [211]UPER[212]APE STELLT  GE-"
150 PRINT"SCHWINDIGKEITSMAESSIG AUCH DIESE IN DEN"
160 PRINT"[211]CHATTEN."
200 GOSUB1000
210 PRINTT$
220 PRINT:PRINT"[215]IE GEWOHNT, KOENNEN [211]IE JETZT MIT DEN"
230 PRINT"[212]ASTEN [195][212][210][204] UND S DAS [208]ROGRAMM [211]UPER[212]APE";
240 PRINT"AUF [201]HRE EIGENE [203]ASSETTE ODER [196]ISKETTE"
245 PRINT"ABSPEICHERN.":PRINT
260 PRINT"[193]USFUEHRLICHE [197]RLAEUTERUNGEN ZUR "
270 PRINT"[194]EDIENUNG UND [198]UNKTION FINDEN [211]IE"
280 PRINT"IM [194]EIHEFT.":PRINT
290 PRINT:PRINT:PRINT::PRINT:PRINT:PRINT"[208][211]: [196]IESER [197]RLAEUTERUNGSTEXT WIRD NA-"
295 PRINT"TUERLICH NICHT MIT ABGESPEICHERT!"
298 ND=PEEK(162):IFINT(ND/7)=ND/7THENGOSUB2000
299 GOSUB1000
300 RUN
1000 POKE198,0:BL$=">[146][144]"
1010 POKE214,22:POKE211,26:SYS58640:PRINT"[156][215]EITER: [212]ASTE[146][144]"
1015 POKE214,22:POKE211,24:SYS58640:PRINT""BL$;
1020 FORI=0TO80:GETW$:IFW$THENI=90
1030 NEXT:IFI>85THENRETURN
1040 POKE214,22:POKE211,24:SYS58640:PRINTBL$;
1050 FORI=0TO80
1060 GETW$:IFW$THENI=90
1070 NEXT:IFI>85THENRETURN
1080 GOTO1015
2000 POKEX,GA:POKEXM,1:POKE53249,130:POKE53277,1:POKE53271,1:POKE53269,1:
2100 GOSUB60000:RETURN
10000 DATA0,0,0,0,0,0,0,0,0,0,10,0,0,10,0,0
10003 DATA63,252,3,255,255,12,61,255,12,61,255,48,53,127,48,61
10004 DATA255,48,61,255,63,255,255,21,85,85,95,213,253,124,247,207
10005 DATA115,55,51,51,55,51,60,243,207,15,192,252,0,0,0,255
10006 DATA173,0,208,208,8,173,16,208,240,13,206,16,208,173,0,208
10007 DATA56,233,6,141,0,208,96,169,0,141,21,208,96,49,0,208
60000 SI=54272:POKESI+24,15:Z=0
60010 POKESI,0:POKESI+1,34
60020 POKESI+5,16+10:POKESI+6,5*16
60030 FORJ=3TO15:SYS896
60040 POKESI+4,33:POKESI+1,60+J*3
60060 POKESI+4,32
60080 NEXT
60090 FORJ=15TO3STEP-1:SYS896
60100 POKESI+4,33:POKESI+1,060+J*3
60120 POKESI+4,32
60140 NEXTJ:Z=Z+1:IFZ<2THEN60030
60150 POKE53269,0:RETURN